﻿Public Class Plocalidad

    Private objlocalidad As Negocio.Nlocalidad


    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

        If (Len(txtnombre.Text) = 0) Then
            MsgBox("EL Nombre de la localidad es un campo obligatorio", MsgBoxStyle.Exclamation)
            txtnombre.Focus()
            Exit Sub
        End If
        Dim oLocalidadesNegocios As New Negocio.Nlocalidad
        Dim oLocalidad As New Entidades.ELocalidad
        oLocalidad.cod_loc = UCase(txtcodigo.Text)
        oLocalidad.nombreloc = UCase(txtnombre.Text)
        oLocalidad.codpostal = UCase(txtcodpostal.Text)
        oLocalidad.provin = UCase(txtprovincia.Text)
        Try
            If oLocalidadesNegocios.cargarLocalidad(oLocalidad) Then
                MsgBox("Carga Exitosa de localidad.", MsgBoxStyle.Information)
            End If
        Catch ex As Exception
            MsgBox("Carga fallida. " + ex.Message, MsgBoxStyle.Exclamation)
        End Try

        dglocalidad.DataSource = objlocalidad.ver

    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If (Len(txtnombre.Text) = 0) Then
            MsgBox("EL Nombre de la localidad es un campo obligatorio", MsgBoxStyle.Exclamation)
            txtnombre.Focus()
            Exit Sub
        End If
        Dim oLocalidadesNegocios As New Negocio.Nlocalidad
        Dim oLocalidad As New Entidades.ELocalidad
        oLocalidad.cod_loc = UCase(txtcodigo.Text)
        oLocalidad.nombreloc = UCase(txtnombre.Text)
        oLocalidad.codpostal = UCase(txtcodpostal.Text)
        oLocalidad.provin = UCase(txtprovincia.Text)
        Try
            If oLocalidadesNegocios.ModificarLocalidad(oLocalidad) Then
                MsgBox("Modificacion Exitosa de localidad.", MsgBoxStyle.Information)
            End If
        Catch ex As Exception
            MsgBox("Modificacion fallida. " + ex.Message, MsgBoxStyle.Exclamation)
        End Try
        dglocalidad.DataSource = objlocalidad.ver

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim oLocalidadesNegocios As New Negocio.Nlocalidad
        Dim oLocalidad As New Entidades.ELocalidad
        oLocalidad.cod_loc = UCase(txtcodigo.Text)
        Try
            If oLocalidadesNegocios.EliminarLocalidad(oLocalidad) Then
                MsgBox("Eliminacion Exitosa de localidad.", MsgBoxStyle.Information)
            End If
        Catch ex As Exception
            MsgBox("Eliminacion fallida. " + ex.Message, MsgBoxStyle.Exclamation)
        End Try
        dglocalidad.DataSource = objlocalidad.ver

    End Sub

    Private Sub btnver_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnver.Click
        dglocalidad.DataSource = objlocalidad.ver
    End Sub

    Private Sub Plocalidad_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        objlocalidad = New Negocio.Nlocalidad
    End Sub

    Private Sub dglocalidad_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles dglocalidad.DoubleClick
        If dglocalidad.RowCount Then
            Dim i As Integer
            i = dglocalidad.CurrentCell.RowIndex
            txtcodigo.Text = dglocalidad.Rows(i).Cells(0).Value
            txtnombre.Text = dglocalidad.Rows(i).Cells(1).Value
            txtcodpostal.Text = dglocalidad.Rows(i).Cells(2).Value
            txtprovincia.Text = dglocalidad.Rows(i).Cells(3).Value


        End If

    End Sub
End Class
